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-- Filemap.mesa Edited by Sandman on August 30, 1977 10:29 AM 

DIRECTORY 

lODefs: FROM "iodefs", 
SegmentDefs: FROM "segmentdefs" ; 

DEFINITIONS FROM lODefs, SegmentDefs; 

FileMap: PROGRAM IMPORTS lODefs, SegmentDefs SHARES SegmentDefs = PUBLIC BEGIN 

PrintFile: PROCEDURE [f ile : FileHandl e] RETURNS [BOOLEAN] ■ 
BEGIN OPEN file; 

WriteString["SN"]; WriteOctal[fp . serial .part2]; 
WriteString[" @ "]; Wri teOctal [fp . leaderDA] ; WriteChar[SP]; 
WriteDecimal[1ock]; WriteString[" locks "]; 
WriteDecimal[segcount] ; WriteString[" segs "]; 
WriteDecimal[swapcount]; WriteString[" swap"]; 
IF read OR write OR append THEN WriteChar[' ]; 
IF read THEN Wri teChar[ ' R] ; 
IF write THEN WriteChar[ ' W] ; 
IF append THEN Wri teChar[ ' A] ; 
IF open THEN Wri teString[" open"]; 
WriteChar[CR]; 
RETURN[-More[]]; 
END; 

Ic: INTEGER; 

fun : INTEGER = 18; 

More: PROCEDURE RETURNS [BOOLEAN] = 
BEGIN c: CHARACTER; 
IF (1c <- lc+1) >= fun THEN 
BEGIN Ic <- 0; 

DO -- until non-random input 
SELECT (c ^ ReadChar[]) FROM 
SP.CR.LF => EXIT; 
DEL => RETURN[FALSE]; 
ENDCASE; 
ENDLOOP; 
END; 
RETURN[TRUE] 
END; 

DO Ic <r 0; WriteChar[CR]; 

[] <- EnumerateFiles[PrintFi1e]; 
WriteChar[CR]; STOP; 
ENDLOOP; 

END. 


